home *** CD-ROM | disk | FTP | other *** search
- .include #system
-
- dd_secs:
- dey ; ought to be at least one sector
- tya ; save it on stack
- pha
- jsr dskinv ; do disk io (assume everything else's setup)
- bmi :xover ; leave on errors
- pla ; get sectors left
- beq :over ; 0 = done->
-
- tay ; get no in Y
- inc dbufhi ; add #$100 to buffer count
- inc daux1 ; wanna next sector ?
- bne dd_secs ; sure !
- inc daux2
- bne dd_secs
- ; this is really awful...
- :xover
- pla
- ldy #$FF
- :over
- rts
-
-